Delete procedure

  DECLARATION:  Delete(var S : String;
                       Index : Integer; Count : Integer)

      PURPOSE:  Deletes a substring from a string

         UNIT:  System

      REMARKS:  Deletes Count characters from S starting at the
                Indexth character.  If Index is greater then the length
                of S, no characters are deleted.  If Count specifies more
                characters than remain in S starting from the Indexth
                character, the remainder of S is deleted.

      EXAMPLE:  Var
                   S : String;

                Begin
                   S := 'A complete test string';
                   Delete(S,12,4);
                   Writeln(S);          { 'A complete string' }
                End.